; TestFile for Regular Expressions
; MK, 25 may 1998
c - eerst alles clearen
p
foobar

l
This is a line which contains foobar a few times, foobar means nothing, foobar, foobar, foobar
this is foobar my man.
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxfoobarxxxxxxxxxxx
this is xxxxxxxxxxfoo and also maybe, perhaps bar and baz.

d - o it
p
foo(.*)bar

d - o it
; get valid dates from the next lines (except 29 february)
; day-month-year
c
p
(^(.*)[0-9]-[0-9]-[12][0-9][0-9][0-9](.*)$)
(^(.*)(([0-2][0-9])|(3[01]))-(([0-9])|([0][0-9])|([1][012]))[-[12][0-9][0-9][0-9](.*)$)

l
8-5-1998 ; valid date
32-5-1998 ; not valid
08-10-1998 ; valid

doit